Program nome ;
var
m1:array[1..3,1..4] of integer;
i,j,n:integer;
m2:string;
 
 
 Begin
 n:=2;
 textcolor(yellow);
 
   for i:=1 to 3 do
     for j:=1 to 4 do
	begin	
 	  m1[i,j]:=n;
       n:=n+2;
	 end;
     for i:=1 to 3 do  
     begin
	   writeln;
	   writeln;
	   for j:=1 to 4 do
   	   	write(m1[i,j],'   ');
   	end;               
 
   	
 End.